home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / recent / muicd.lha / mui_cd_player / Configure CD-ROM < prev    next >
Text File  |  1998-05-19  |  5KB  |  174 lines

  1. (procedure P_DEVICEINFO
  2.   (cat #dev (getenv "TSTDEV_DEVICE") "\n" 
  3.        #unit (getenv "TSTDEV_UNIT") "\n"
  4.        #devtype (getenv "TSTDEV_DEVICETYPE") "\n"
  5.        #commandset (getenv "TSTDEV_COMMANDSET") "\n"
  6.        #vendor (getenv "TSTDEV_VENDOR") "\n"
  7.        #product (getenv "TSTDEV_PRODUCT") "\n"
  8.        #revision (getenv "TSTDEV_REVISION")
  9.   )
  10. )
  11.  
  12. (procedure P_FINDBYVOLUME userlevel
  13.   (if (= userlevel 0)
  14.     (set #ret (run "testdevice CD0: volume setvar"))
  15.     (set #ret (run (cat "testdevice " (askstring (prompt #entercdname) (help @askstring-help) (default "CD0:")) " volume setvar")))
  16.   )
  17.  
  18.   (if (= #ret 0)
  19.     (if (= (getenv "TSTDEV_DEVICETYPE") "CD-ROM")
  20.       (if (< userlevel 2)
  21.         (set #goon 1)
  22.         (set #goon 
  23.           (askbool 
  24.             (prompt
  25.               (cat #found "\n\n" (P_DEVICEINFO) "\n\n\n" #isok)
  26.             )
  27.             (help @askbool-help)
  28.             (default 1)
  29.           )
  30.         )
  31.       )  
  32.       (if (= userlevel 0)
  33.         (set #goon 0)
  34.         (set #goon
  35.           (askbool 
  36.             (prompt
  37.               (cat #foundnotcd "\n\n" (P_DEVICEINFO) "\n\n\n" #isok)
  38.             )
  39.             (help @askbool-help)
  40.             (default 1)
  41.           )
  42.         )  
  43.       )
  44.     )
  45.     ((set #goon 0) (message #notfound (all)))
  46.   )
  47. )
  48.  
  49. (procedure P_FINDBYDEVICE
  50.   (
  51.     (set #name
  52.       (cat "testdevice NAME=" 
  53.         (askstring (prompt #findbydev) (help @askstring-help)
  54.         (default "atapi.device"))
  55.         " "
  56.         (askstring (prompt #unitnum) (help @askstring-help)
  57.         (default ""))
  58.         " setvar"
  59.       )
  60.     )
  61.     (working #search)
  62.     (set #ret (run #name))
  63.     (if (= #ret 0)
  64.       (if (< @user-level 2)
  65.         (set #goon 1)
  66.         (set #goon 
  67.           (askbool 
  68.             (prompt
  69.               (cat #found "\n\n" (P_DEVICEINFO) "\n\n\n" #isok)
  70.             )
  71.             (help @askbool-help)
  72.             (default 1)
  73.           )
  74.         )  
  75.       )
  76.       (set #goon 0)
  77.     )
  78.   )
  79. )
  80.  
  81. (procedure P_CONFIGURECD
  82.   (working #search)
  83.  
  84.   (P_FINDBYVOLUME @user-level)
  85.  
  86.   (if (= #goon 0)
  87.     (if (= @user-level 0)
  88.       (P_FINDBYVOLUME 1)
  89.     )
  90.   )
  91.  
  92.   (if (= #goon 0)
  93.     (P_FINDBYDEVICE)
  94.   )
  95.  
  96.   (if (= #goon 0) (abort #notfound))
  97.   
  98.   (tooltype
  99.     (dest (tackon @default-dest "MUI_CD_Player"))
  100.     (settooltype "DEVICE" (getenv "TSTDEV_DEVICE"))
  101.     (settooltype "UNIT" (getenv "TSTDEV_UNIT"))
  102.     (settooltype "LIBRARY"
  103.       (if (= (getenv "TSTDEV_COMMANDSET") "CD32") "CDPlayers/cddevplay.library" "CDPlayers/atapiplay.library")
  104.     )
  105.   )
  106. )
  107.  
  108. (set #language 
  109.   (if (= @language "polski") 1 
  110.     (if (= @language "deutsch") 2 0
  111.     )
  112.   )
  113. )
  114.  
  115. (select #language
  116.   (
  117.     (set #search "Searching for CD-ROM...")
  118.     (set #found "Found a CD-ROM drive:")
  119.     (set #dev "Device: ")
  120.     (set #unit "Unit: ")
  121.     (set #vendor "Vendor: ")
  122.     (set #product "Product: ")
  123.     (set #revision "Revision: ")
  124.     (set #devtype "Device type: ")
  125.     (set #commandset "Command set: ")
  126.     (set #foundnotcd "Found a device which is probably not a CD-ROM:")
  127.     (set #isok "Use this device ?")
  128.     (set #notfound "Could not find a CD-ROM")
  129.     (set #entercdname "Enter the name of your CD-ROM\n(eg. CD0, CD1, CDR etc.)")
  130.     (set #findbydev "Let's try to find the CD-ROM differently.\nEnter the device name:")
  131.     (set #unitnum "Enter unit number:\n(or leave it empty if you don't know the number)")
  132.   )
  133.   (
  134.     (set #search "Szukam CD-ROMu...")
  135.     (set #found "Znalazîem CD-ROM:")
  136.     (set #dev "Urzâdzenie: ")
  137.     (set #unit "Nr: ")
  138.     (set #vendor "Producent: ")
  139.     (set #product "Produkt: ")
  140.     (set #revision "Wersja: ")
  141.     (set #devtype "Typ urzâdzenia: ")
  142.     (set #commandset "Zestaw komend: ")
  143.     (set #foundnotcd "Znalazîem urzâdzenie, które prawdopodobnie nie jest CD-ROMem:")
  144.     (set #isok "Czy mam uûyê tych danych ?")
  145.     (set #notfound "Nie mogë znaleúê CD-ROMu")
  146.     (set #entercdname "Wpisz nazwë CD-ROMu\(czyli np. CD0, CD1, CDR itp.)")
  147.     (set #findbydev "Spróbujmy znaleúê CD-ROM w inny sposób.\nWpisz nazwë urzâdzenia:")
  148.     (set #unitnum "Wpisz numer urzâdzenia:\n(albo pozostaw to pole puste jeôli nie znasz numeru)")
  149.   )
  150.   (
  151.     (set #search "Suche nach einem CD-ROM...")
  152.     (set #found "Es wurde ein CD-ROM Laufwerk gefunden:")
  153.     (set #dev "Device: ")
  154.     (set #unit "Unit: ")
  155.     (set #vendor "Hersteller: ")
  156.     (set #product "Produkt: ")
  157.     (set #revision "Revision: ")
  158.     (set #devtype "Geräte-Typ: ")
  159.     (set #commandset "Befehlssatz: ")
  160.     (set #foundnotcd "Es wurde ein Gerät gefunden, das vermutlich kein CD-ROM ist:")
  161.     (set #isok "Dieses Gerät verwenden?")
  162.     (set #notfound "Ein CD-ROM konnte nicht gefunden werden")
  163.     (set #entercdname "Geben Sie den Namen Ihres CD-ROM ein\n(z.B. CD0, CD1, CDR etc.)")
  164.     (set #findbydev "Wir versuchen jetzt, das CD-ROM auf eine andere Weise zu finden.\nGeben Sie den Device-Namen ein:")
  165.     (set #unitnum "Geben Sie die Unit-Nummer ein:\n(oder lassen Sie das Feld leer, falls Sie die Nummer nicht wissen)")
  166.   )
  167. )
  168.  
  169. (set @default-dest "")
  170.  
  171. (P_CONFIGURECD)
  172.  
  173. (exit)
  174.